home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1998 October / Macworld (1998-10).dmg / Serious Demos / Morpha / 3DO.DXR / 00107.ls < prev    next >
Encoding:
Text File  |  1998-07-31  |  339 b   |  19 lines
  1. on dropdrums
  2.   global face, st, wait, drumonly, drums
  3.   redraw()
  4.   set face to random(2)
  5.   set the visible of sprite 3 to 1
  6.   updateStage()
  7.   put "cutbeat" into field "debug"
  8.   set st to 1
  9.   set wait to 1
  10.   if drumonly = 1 then
  11.     nothing()
  12.   else
  13.     mixdown()
  14.     puppetSound(1, 0)
  15.     set drums to 0
  16.     set drumonly to 0
  17.   end if
  18. end
  19.